 ClearDevice ()   ( Graph)
 -----------------------------------------
    
     (0,
0).

 :
 Procedure ClearDevice;

 :
Real, Protected

 :
 ClearDevice  
     (0, 0),
 ,   ,
   SetBkColor, 
    .

 :
    .

  :
 ClearViewPort
 CloseGraph
 InitGraph
 RestoreCrtMode
 SetGraphMode

 :
 Clrdevc.PAS



{Clrdevc.PAS}
---------------
{     ClearDevice }

Uses Crt, Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); {   BGI  }
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  LineTo(Random(200), Random(200));
 Until KeyPressed;
 ClearDevice;
 ReadLn;
 CloseGraph;
End.
